#!/usr/bin/perl

while ( <> ) {
	/create\s+table\s+(\S+)/i 		and push @a, "truncate $1 cascade;";
}
print join $/, reverse @a;
